﻿Module Module1
  Sub Main()
    Console.Write("Inserisci un numero " & _
        "da 1 a 3: ")
    Dim numero As Integer = _
                CType(Console.ReadLine(), Integer)
    If numero = 1 Then
      Console.WriteLine("Hai inserito 1")
    ElseIf numero = 2 Then
      Console.WriteLine("Hai inserito 2")
    ElseIf numero = 3 Then
      Console.WriteLine("Hai inserito 3")
    Else
      Console.WriteLine("Hai inserito " & _
          "un numero non valido")
    End If
    Console.ReadLine()
  End Sub
End Module
